Исходный код

'----------------------------------------------------------
'Массив объектов включая выборку
Dim arr(4)
Set arr(1) = ThisApplication.Desktop
Set arr(2) = arr(1).Objects(0)
Set arr(3) = arr(2).Objects(0)
Set arr(4) = arr(3).Queries("QUERY_TEST")

ThisApplication.Shell.SetActiveTreeItem(arr)

'----------------------------------------------------------
'Коллекция объектов 
Set colPath = ThisApplication.CreateCollection(tdmObjects)
colPath.Add  ThisApplication.Desktop 
colPath.Add  ThisApplication.Desktop.Objects(0)
colPath.Add  ThisApplication.Desktop.Objects(0).Objects(0)

ThisApplication.Shell.SetActiveTreeItem(colPath)

'----------------------------------------------------------
'Просто объект (Дерево)
Set Object = ThisApplication.Desktop
ThisApplication.Shell.SetActiveTreeItem(Object)
'----------------------------------------------------------